home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / userbox / publicdomain / megabook.lha / MegaBook / Rexx / MegaCookie_Startup.mbrx < prev    next >
Text File  |  1996-07-15  |  1KB  |  36 lines
  1. /*
  2. ** MegaBook Version 3.0 Example Startup Rexx script
  3. ** By Tom Bampton
  4. ** 
  5. ** © 1996 Eden Software
  6. **
  7. ** This example is a version of MegaCookie for startup scripts.
  8. ** MegaCookie was written by Edward Farrow
  9. */
  10.  
  11. address 'MEGABOOK.01'
  12. options results
  13.  
  14. /* Line Feed Char. Makes A New Line In Requestors (Ta Tom!) */
  15. LF='0a'x
  16.  
  17. /* ' And " Chars. Makes Rexx Scripts Allow ' And " Symbols */
  18. SQ='"'
  19. DQ="'"
  20.  
  21. /* Cookie Picker */
  22. Cookie.1 = "A women without a man is like"LF"a fish without a bicycle"
  23. Cookie.2 = "Babies can"SQ"t walk because"LF"their legs aren"SQ"t long enough"LF"to reach the ground"
  24. Cookie.3 = "Having children will turn you"LF"into a parent (shudder)"
  25. Cookie.4 = "This fortune will self destruct"LF"in 30 seconds..."
  26. Cookie.5 = "Man who eats jelly beans farts"LF"in techni-color"
  27. Cookie.6 = "I.B.M: Inferior But Marketable"LF"P.C: Peice "DQ"Of"DQ" Crap"
  28. Cookie.7 = "9 out of 10 cats prefer hamsters"
  29. Cookie.8 = "A nuclear war can ruin your whole day"
  30. Cookie.9 = "A penny saved is ridiculous!"
  31.    CALL Randu(time('s'))
  32.    picked = RANDOM(1,9)
  33.    COOKIE = Cookie.picked
  34.  
  35. /* Display Cookie */
  36. REQUEST ''COOKIE'' GADS '_ho ho ho'